home *** CD-ROM | disk | FTP | other *** search
/ EuroCD 3 / EuroCD 3.iso / Programming / Amos / AMOSPro_DELTA / AMOSPro_Delta.AMOS / AMOSPro_Delta.amosSourceCode
AMOS Source Code  |  1998-06-24  |  2KB  |  79 lines
  1. ' Demo for AMOSPro_Delta.Lib 
  2. ' 28.05.1997 by Delta/Opium^Hv^Fnz 
  3. '  
  4. ' ï¿½ukasz ï¿½elezny 
  5. ' ul. W�oska 4d/6
  6. ' 42-612 Tarnowskie G�ry 
  7. ' Poland 
  8. '
  9. ' FOR AMOSPro_Delta.Lib (V1.4) 
  10. '
  11. BLOK
  12. INIT
  13. Centre "Screen modes:"+Chr$(10)
  14. Locate 0,5 : 
  15. Print "1 - Pal    mode"
  16. Print "2 - Ntsc   mode"
  17. Print "3 - Custom mode (NO SYNCHRO!)"
  18. Print "Esc - skip"
  19. Do 
  20.    Repeat : A$=Inkey$ : Until A$<>""
  21.    If A$="1" Then Extension_15_0020 
  22.    If A$="2" Then Extension_15_0030 
  23.    If A$="3"
  24.       Input "Enter value:";VA
  25.        Extension_15_0040 VA
  26.    End If 
  27.    If A$=Chr$(27) Then Exit 
  28. Loop 
  29. Cls 0
  30. Home 
  31. Print "Delta Drive Motor On"
  32.  Extension_15_0006 
  33. KEY
  34. Print "Delta Drive Motor Off"
  35.  Extension_15_0112 
  36. KEY
  37. Print "Delta Mouse Off"
  38.  Extension_15_00A0 
  39. KEY
  40. Print "Show mouse"
  41. Amos To Back : Amos To Front 
  42. KEY
  43. Print "Delta Decrunch $f0f"
  44. For K=1 To 10000 : Extension_15_0058 $F0F : Next 
  45. Print "Delta Decrunch Rnd(4094)+1"
  46. For K=1 To 10000 : Extension_15_0058 Rnd(4094)+1 : Next 
  47. Print "Change Disk"
  48.  Extension_15_00DE 
  49. Cls 0
  50. Home 
  51. Print "Some strings:"
  52. Print "My brithday -> "+Str$( Extension_15_012E )
  53. Print "Pi -> ";Str$( Extension_15_0142 )
  54. Print "E -> ";Str$( Extension_15_0152 )
  55. Print "One yard = "; Extension_15_0172 ;" meters."
  56. Print "One feet = "; Extension_15_0184 ;" meters."
  57. Print "One inch = "; Extension_15_0196 ;" meters."
  58. Print "One american mile = "; Extension_15_01C2 ;" meters."
  59. Print "One english mile = "; Extension_15_01A8 ;" meters."
  60. Print Extension_15_0160 ;" - then dreams come true..."
  61. Print "Press left double mouse click"
  62.  Extension_15_006E $FFFF
  63. Wait 50
  64. Print "Ok... press left mouse click"
  65.  Extension_15_00F6 
  66.  
  67. '**************************
  68. Procedure KEY
  69.    Print "Press any key"
  70.    Wait Key 
  71. End Proc
  72. Procedure INIT
  73.    Screen Open 0,640,256,2,Hires : Curs Off : Flash Off : Cls 0
  74.    Palette $0,$FFF
  75. End Proc
  76. Procedure BLOK
  77.    Amos Lock 
  78.    Break Off 
  79. End Proc